home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / diskutil / gemar220.lzh / GEMAR220 / PLUGIN / SOURCE / SCANRSC.M < prev    next >
Encoding:
Modula Implementation  |  1993-10-31  |  3.1 KB  |  60 lines

  1. IMPLEMENTATION MODULE ScanRsc;
  2. (* generated by RSC2MOD v3.11 (c) 1993 Christian Sprenger *)
  3.  
  4. FROM SYSTEM IMPORT ADDRESS,CODE;
  5.  
  6. (*$D-*)(*$S-*)(*$P+*)
  7. PROCEDURE RData;
  8.  
  9. BEGIN
  10.  
  11.   CODE(00000H,0002CH,00164H,001B8H,001B8H,001B8H,001B8H,002CEH);
  12.  
  13.   CODE(002CEH,00024H,0000DH,00002H,00003H,00000H,00000H,00000H);
  14.  
  15.   CODE(00000H,002CEH,00000H,0002CH,00000H,000BCH,0FFFFH,00001H);
  16.  
  17.   CODE(00005H,00014H,00000H,00010H,00002H,01100H,00000H,00000H);
  18.  
  19.   CODE(0001EH,00009H,00002H,0FFFFH,0FFFFH,0001CH,00000H,00000H);
  20.  
  21.   CODE(00000H,001B8H,00008H,00001H,0000EH,00001H,00005H,00003H);
  22.  
  23.   CODE(00004H,00019H,00000H,00000H,00001H,01100H,00000H,00006H);
  24.  
  25.   CODE(0001EH,00003H,00004H,0FFFFH,0FFFFH,0001AH,00405H,00000H);
  26.  
  27.   CODE(00000H,001C7H,00013H,00001H,00009H,00001H,00002H,0FFFFH);
  28.  
  29.   CODE(0FFFFH,0001AH,00007H,00000H,00000H,001CFH,00008H,00001H);
  30.  
  31.   CODE(00008H,00001H,00000H,0FFFFH,0FFFFH,0001DH,00028H,00000H);
  32.  
  33.   CODE(00000H,00164H,00004H,00803H,00017H,00001H,0FFFFH,00001H);
  34.  
  35.   CODE(00006H,00014H,00000H,00010H,00002H,01100H,00000H,00000H);
  36.  
  37.   CODE(0002BH,0000AH,00002H,0FFFFH,0FFFFH,0001CH,00000H,00000H);
  38.  
  39.   CODE(00000H,001D2H,0000EH,00001H,00010H,00001H,00005H,00003H);
  40.  
  41.   CODE(00004H,00019H,00000H,00000H,00001H,01100H,00000H,00007H);
  42.  
  43.   CODE(0002BH,00003H,00004H,0FFFFH,0FFFFH,0001AH,00405H,00000H);
  44.  
  45.   CODE(00000H,001E3H,00020H,00001H,00009H,00001H,00002H,0FFFFH);
  46.  
  47.   CODE(0FFFFH,0001AH,00007H,00000H,00000H,001EAH,00015H,00001H);
  48.  
  49.   CODE(00008H,00001H,00006H,0FFFFH,0FFFFH,0001DH,00000H,00000H);
  50.  
  51.   CODE(00000H,00180H,00002H,00804H,00017H,00001H,00000H,0FFFFH);
  52.  
  53.   CODE(0FFFFH,0001DH,00020H,00000H,00000H,0019CH,00002H,00003H);
  54.  
  55.   CODE(00026H,00001H,00000H,001EDH,00000H,001FFH,00000H,00217H);
  56.  
  57.   CODE(00003H,00006H,00002H,01180H,00000H,0FFFFH,00012H,00018H);
  58.  
  59.   CODE(00000H,00229H,00000H,0023BH,00000H,00253H,00003H,00006H);
  60.  
  61.   CODE(00002H,01180H,00000H,0FFFFH,00012H,00018H,00000H,00265H);
  62.  
  63.   CODE(00000H,00286H,00000H,002ADH,00003H,00006H,00002H,01180H);
  64.  
  65.   CODE(00000H,0FFFFH,00021H,00027H,02044H,06174H,06569H,02073H);
  66.  
  67.   CODE(07563H,06865H,06E20H,00041H,06262H,07275H,06368H,0004FH);
  68.  
  69.   CODE(06B00H,02044H,06174H,06569H,02067H,06566H,0756EH,06465H);
  70.  
  71.   CODE(06E20H,00057H,06569H,07465H,07200H,04F6BH,0005FH,05F5FH);
  72.  
  73.   CODE(05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,0004EH);
  74.  
  75.   CODE(0616DH,0653AH,0205FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH);
  76.  
  77.   CODE(05F5FH,05F5FH,05F5FH,00058H,05858H,05858H,05858H,05858H);
  78.  
  79.   CODE(05858H,05858H,05858H,05858H,0005FH,05F5FH,05F5FH,05F5FH);
  80.  
  81.   CODE(05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,0004EH,0616DH,0653AH);
  82.  
  83.   CODE(0205FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH);
  84.  
  85.   CODE(05F5FH,00058H,05858H,05858H,05858H,05858H,05858H,05858H);
  86.  
  87.   CODE(05858H,05858H,0005FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH);
  88.  
  89.   CODE(05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH);
  90.  
  91.   CODE(05F5FH,05F5FH,05F00H,05066H,06164H,03A20H,05F5FH,05F5FH);
  92.  
  93.   CODE(05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH);
  94.  
  95.   CODE(05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,05F5FH,00058H,05858H);
  96.  
  97.   CODE(05858H,05858H,05858H,05858H,05858H,05858H,05858H,05858H);
  98.  
  99.   CODE(05858H,05858H,05858H,05858H,05858H,05858H,05800H);
  100.  
  101. END RData;
  102.  
  103. (*$P-*)(*$D=*)(*$S=*)
  104.  
  105. BEGIN
  106.   Data := ADDRESS(RData)
  107. END ScanRsc.
  108.